home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00018_Starting New game script.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  905 b   |  20 lines
  1. on exitFrame
  2.   global gVoiceChannel, gPathToSound, fileDelimiter, gMusicChannel, gNumPlayers, gCurrQuestion, gPlayerCounter, gTenQList, gScoreList, gNumOfTotalQuestions, gDynamicAllQuestList, gStaticAllQuestList
  3.   unloadMember()
  4.   preloadMember(member "Spinning Numbers Start" of castLib "signup", member "Spinning Numbers Stop" of castLib "signup")
  5.   set gNumPlayers to 0
  6.   set gPlayerCounter to 0
  7.   set gScoreList to [0, 0, 0]
  8.   set gCurrQueston to 0
  9.   set gTenQList to []
  10.   if count(gDynamicAllQuestList) < 10 then
  11.     set gDynamicAllQuestList to duplicate(gStaticAllQuestList)
  12.   end if
  13.   repeat while count(gTenQList) < 10
  14.     set jRandom to random(count(gDynamicAllQuestList))
  15.     add(gTenQList, getAt(gDynamicAllQuestList, jRandom))
  16.     deleteAt(gDynamicAllQuestList, jRandom)
  17.   end repeat
  18.   sound playFile gVoiceChannel, gPathToSound & "signup" & fileDelimiter & "howmany" & random(2) & ".aif"
  19. end
  20.